home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / SelectID+Subject+Thread.zprx < prev    next >
Text File  |  1996-05-15  |  2KB  |  108 lines
  1. /*
  2.   $VER: SelectID+Subject+Thread.rexx V1.0 (13.5.96) © Copyright Nils Görs
  3.  
  4.  
  5.    Funktionsbeschreibung:
  6.  
  7.     Dies  ist  ein  Arexx-Skript  für  Zodiac's  Point  bei  dem  alle
  8.     Nachrichten  im  Brett,  deren  ID  und  Betreff mit der aktuellen
  9.     Nachricht übereinstimmen markiert werden.
  10.     Hierbei wird  auch auf die Nachrichtenverkettung, mit  wechselnden
  11.     Betreffen, rücksicht genommen.
  12.  
  13.  
  14.    Hinweise zur Installation:
  15.  
  16.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  17.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  18.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/ID&Betreff.zprx %s" hinzu.
  19.  
  20.     Alternativ hierzu können Sie aber auch folgende Zeile in die Datei
  21.     usermenu.zp einfügen um das Skript aus dem User-Menu auszuwählen:
  22.  
  23.     *Nach ID & Betreff markieren
  24.     SYS:Rexxc/RX Zodiac:Rexx/ID&Betreff.zprx %s
  25.  
  26.  
  27.     Sie erreichen den Autor wie folgt:
  28.  
  29.        Nils Görs              Tel. : +49 (0)202 784258
  30.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.de
  31.        42329 Wuppertal          oder über das ZP-Support-Brett.
  32.  
  33.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  34.  
  35. */
  36.  
  37. /* Sonderzeichen werden nach ? gewandelt */
  38. OldChar = '"()*^ '
  39. NewChar = "??????"
  40. OPTIONS RESULTS
  41.  
  42. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  43. PARSE ARG zpPort
  44. IF zpPort == "" THEN
  45.    zpPort = "ZPoint"
  46. ADDRESS VALUE zpPort
  47.  
  48. 'GUILOCK text="Bitte etwas Geduld..."'
  49.  
  50. MESSAGEINFO POSITION
  51.  Mess_Pos = Result
  52.  
  53. MESSAGEINFO DEPTH
  54. IF result ~= 0 THEN DO
  55.    first = 1
  56.    do while first
  57.      MESSAGEINFO DEPTH
  58.        first = result
  59.         IF result ~= 0 THEN DO
  60.           UP
  61.           first = 1
  62.         END
  63.    end
  64. END
  65.  
  66. CALL _GetMessageInfos
  67. JUMPTOMESSAGE 1
  68. CALL _SelectMessages
  69.  
  70. more = 1
  71. do while more
  72.  
  73.    MESSAGEINFO DEPTH
  74.     IF result ~= 0 THEN DO
  75.      DOWN
  76.       MESSAGEINFO DEPTH
  77.         IF result ~= 0 THEN DO
  78.           MESSAGEINFO LISTED
  79.            IF result == 0 THEN DO
  80.             SELECTMESSAGE
  81.             CALL _GetMessageInfos
  82.             CALL _SelectMessages
  83.             DOWN
  84.            END
  85.         END
  86.     END
  87.  
  88.    JUMPTOMESSAGE LISTED
  89.    more = (rc)
  90. end
  91.  
  92. JUMPTOMESSAGE Mess_Pos
  93. GUILOCK OFF
  94. EXIT(0)
  95.  
  96. _GetMessageInfos:
  97. MESSAGEINFO SUBJECT
  98.  Betreff="#?"||TRANSLATE(RESULT,NewChar,OldChar)||"#?"
  99. MESSAGEINFO ID
  100.  Mess_ID = RESULT
  101. RETURN
  102.  
  103. _SelectMessages:
  104. SELECTMESSAGE SUBJECT Betreff
  105. SELECTMESSAGE ID Mess_ID
  106. RETURN
  107. /*EOS*/
  108.